home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
circle demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
93 lines
10 ;*********************************
11 ;* *
12 ;* GIGA-ASS GRAFIK-ROUTINEN DEMO *
13 ;* ----------------------------- *
14 ;* *
15 ;* ACHTUNG: VOR ASSEMBLIEREN *
16 ;* MUESSEN ZWEI VORAUSSETZUNGEN *
17 ;* ERFUELLT SEIN: *
18 ;* *
19 ;* 1. DER OBJEKTCODE DER GRAFIK- *
20 ;* ROUTINEN MUSS IN DEN SPEICHER *
21 ;* GELADEN WORDEN SEIN. *
22 ;* *
23 ;* 2. DAS MAKRO MERGE-FILE MUSS *
24 ;* MIT DEM "M" BEFEHL AN DIESEN *
25 ;* QUELLTEXT ANGEHAENGT WORDEN *
26 ;* SEIN. *
27 ;* *
28 ;*********************************
100 +$7000
110 USRDEMO
120 DEMO DESIGNCLOSE3
130 CLEAR
140 COLORCLOSE$BF
150 TEXTCLOSET1,6,9,1,3,0,0
160 PAGECLOSE3
170 BORDERCLOSE$F
180 FRAMECLOSE35,35,290,90
190 FRAMECLOSE40,40,285,85
200 FILLCLOSE37,64
210 FILLCLOSE287,64
220 TEXTCLOSET2,13,6,0,1,1,0
230 TEXTCLOSET3,17,6,0,0,1,0
240 TEXTCLOSET4,19,7,0,0,1,0
250 SPACEWAIT
260 BORDERCLOSE$C
270 CLEAR
280 COLORCLOSE$C
290 ; 1. AUFRUF
300 MID$#160
310 (null)XC
320 MID$#0
330 (null)XC+1
340 MID$#100
350 (null)YC
360 (null)SUBR
370 ; 2. AUFRUF
380 MID$#228
390 (null)YC
400 (null)SUBR
410 ; 3. AUFRUF
420 MID$#54
430 (null)XC
440 MID$#1
450 (null)XC+1
460 MID$#10
470 (null)YC
480 (null)SUBR
490 EXIT OFF
500 MID$#0
510 (null)198
520 (null)
530 T1 NOT"CIRCLE DEMO"
540 T2 NOT"[199]IGA-[193]SS [199]RAFIK-[210]OUTINEN [196]EMO"
550 T3 NOT"[218]UM [193]BBRUCH <[211][208][193][195][197]> DRUECKEN!"
560 T4 NOT"[202]ETZT WEITER MIT <[211][208][193][195][197]>..."
570 SUBR MID$#2
580 (null)RAD
590 LOOP1 CIRCLEICLOSEXC,YC,RAD
600 EXITKEY
610 RIGHT$RAD
620 (null)LOOP1
630 MID$#2
640 (null)RAD
650 LOOP2 CCIRCLEICLOSEXC,YC,RAD
660 EXITKEY
670 RIGHT$RAD
680 (null)LOOP2
690 (null)
700 XC THEN2
710 YC THEN1
720 RAD THEN1
730 TAB(EXITADR=EXIT
740 GETEXITKEY
750 MID$203
760 STR$#$3C
770 (null)CONT
780 (null)
790 (null)
800 (null)EXITADR
810 CONT
820 NEW